home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 March
/
EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso
/
earcd
/
games1
/
szenrnv2.lha
/
HDInstall
< prev
next >
Wrap
Text File
|
1996-01-16
|
5KB
|
235 lines
(complete 0)
(set @default-dest "SYS:")
; Texts
(set #Intro-Txt
(cat "\n\nWelcome to \n"
"THE SZENARION V2.0\n"
"HD Installation\n\n\n\n"
"®1993-96 by Stefan Waschk\n\n"
"this is SHAREWARE!\n"
"see manual for registration or write to:\n"
"___________________________________________________\n"
"Stefan Waschk/Siegfriedstr.119/D-38106 Braunschweig\n\n"
))(set #Warning-Txt
(cat "\n\nWARNING!\n"
"--------\n\n"
"Szenarion requires 5 MB free on your disk \n\n"
"3MB RAM, >=Kick2.0, 68020++, AGA or FLICKERFIXER\n\n"
))(set #Path-Txt
(cat "Select a directory for\n"
"THE SZENARION V2.0"
))(set #Path-Help
(cat "\nThis section lets you choose the "
"target directory to install Szenarion. \n\n"
"Default is SYS:\n\n\n"
@askdir-help
))(set #Rename-Help
(cat "\n If your AMIGA has an arithmetic unit (MMU),\n"
" rendering will take part much faster.\n"
" Basic A1200 and 68LCxx AMIGAs don`t have it!\n\n\n"
@rename-help
))(set #Screenmode-Help
(cat "\n If you own a A1200, A4000 with the AGA chipset,\n"
" you must choose the EURO72 screenmode.\n\n"
" With A2000, A3000(..) and FLICKERFIXER, you have\n"
" to choose NTSCHIRESLACED!\n\n"
" PICASSOII-users can use both, but have to set\n"
" the refresh-time to one second. Scrolling will\n"
" be worse, for that isn't done by blitter!\n"
))
; Main
(message #Intro-Txt)
(message #Warning-Txt)
(set target
(askdir (prompt #Path-Txt) (help #Path-Help) (default @default-dest) (newpath)
))
(set @default-dest target)
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "")
(dest (tackon target "Szenarion"))
(pattern "szen_1.lha")
)
(complete 10)
(set #path1
(cat "Tools/lha x "
(tackon target "Szenarion/szen_1.lha ")
(tackon target "Szenarion/")
))
(run #path1
(prompt "extracting file")
(help "not available now")
)
(set #path1
(cat (tackon target "Szenarion/szen_1.lha")
))
(Delete #path1)
(complete 55)
(if (exists "szen_2.lha")
(
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "")
(dest (tackon target "Szenarion"))
(pattern "szen_2.lha")
)
)
(
(message "\nInstert DISK II in drive\n\nDF0:\n___\n")
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "DF0:")
(dest (tackon target "Szenarion"))
(pattern "szen_2.lha")
)
(message "\nReinstert DISK I in drive\n\nDF0:\n___\n")
)
)
(complete 60)
(set #path1
(cat "Tools/lha x "
(tackon target "Szenarion/szen_2.lha ")
(tackon target "Szenarion/")
))
(run #path1
(prompt "extracting file")
(help "not available now")
)
(complete 90)
(set #path1
(cat (tackon target "Szenarion/szen_2.lha")
))
(Delete #path1)
(set #path2
(cat (tackon target "Szenarion/ENV/Szenarion.config")
))
(
if ( askbool
(prompt "now modifying the SCREENMODE. EURO72(AGA)\nor NTSCHIRESLACED (FLICKERFIXER) is possibe.\n\n____________________________________\nDo you want to open EURO72 screens?" )
(help #Screenmode-Help)
)
(
(set #path1
(cat (tackon target "Szenarion/ENV/Szenarion.config.AGA")
))
(Rename #path1 #path2)
(Delete #path1)
(set #path1
(cat (tackon target "Szenarion/ENV/Szenarion.config.noAGA")
))
(Delete #path1)
)
(
(set #path1
(cat (tackon target "Szenarion/ENV/Szenarion.config.noAGA")
))
(Rename #path1 #path2)
(Delete #path1)
(set #path1
(cat (tackon target "Szenarion/ENV/Szenarion.config.AGA")
))
(Delete #path1)
)
)
(complete 95)
(set #path2
(cat (tackon target "Szenarion/RKSim")
))
(set #path3
(cat (tackon target "Szenarion/RFEditor")
))
(
if ( askbool
(prompt "now installing the SZEMARION tools\n\nRKSim & RFEditor\n__________________________________\nDoes your AMIGA have a MMU ?" )
(help #Rename-Help)
)
(
(set #path1
(cat (tackon target "Szenarion/RKSim.68020MMU")
))
(Rename #path1 #path2)
(set #path1
(cat (tackon target "Szenarion/RFEditor.68020MMU")
))
(Rename #path1 #path3)
(set #path1
(cat (tackon target "Szenarion/RKSim.68020noMMU")
))
(Delete #path1)
(set #path1
(cat(tackon target "Szenarion/RFEditor.68020noMMU")
))
(Delete #path1)
)
(
(set #path1
(cat (tackon target "Szenarion/RKSim.68020noMMU")
))
(Rename #path1 #path2)
(set #path1
(cat (tackon target "Szenarion/RFEditor.68020noMMU")
))
(Rename #path1 #path3)
(set #path1
(cat (tackon target "Szenarion/RKSim.68020MMU")
))
(Delete #path1)
(set #path1
(cat (tackon target "Szenarion/RFEditor.68020MMU")
))
(Delete #path1)
)
)
(complete 99)
(set #path1
(cat target
"Szenarion.info"
))
(copyfiles
(prompt "Copying to " #target)
(help @copy-files-help)
(source "")
(dest target)
(pattern "info")
)
(set #path1
(cat (tackon target "Szenarion.info")
))
(set #path2
(cat (tackon target "info")
))
(rename #path2 #path1)
(complete 100)